home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Workbench Add-On
/
Workbench Add-On - Volume 1.iso
/
DiskUtil
/
CD-ROM
/
JukeBox
/
status.jb
< prev
next >
Wrap
Text File
|
1995-08-23
|
436b
|
22 lines
/* display current playing status */
/* (c) copyright 1992,93 by F.J. Reichert */
options results;
inquiry;
say substr(result,9,27);
current status;
play = 'status is "'||result||'",'
current track;
play = play 'track #'||result
current index;
play = play 'index' result
current reltime;
rel = result;
play = play 'since' result
current trktime;
abs = result;
subtime abs rel
rem = result;
say play||', remaining' rem 'of' abs
exit 0;